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PPPPPPPP AAAAAA SSSSSSSS _GGGGGGGG EEEEEEEEEE ITTTTTIITT : 
PPPPPPPP AAAAAA SSSSSSSS GGGGGGGG EEEEEEEEEE TTTTTTTTTT : 
PP PP AA AA SS GG EE TT ; 
PP PP AA AA SS GG EE TT ° 
PP PP AA AA SS GG EE TT ; 
PP PP AA AA SS GG EE TT : 
PPPPPPPP AA AA SSSSSS GG EEEEEEEE TT : 
PPPPPPPP AA AA SSSSSS GG EEEEEEEE TT ‘ 
PP AAAAAAAAAA SS GG GGGGGG EE TT | : 
PP AAAAAAAAAA SS GG GGGGGG EE TT : 
PP AA AA S$ GG GG EE TT sane : 
PP Aa A SS GG GG EE TT oece ; 
PP Aa AA SSSSSSSS GGGGGG EEEEEEEEEE TT coe ‘ 
PP AA AA SSSSSSSS GGGGGG EEEEEEEEEE TT eee | : 

: 
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LL I] SSSSSS : 
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PASSGET GET procedure 1984 01:37:43 AX-11 Bliss- 42 Page 1 
1986 $2:8;590  YaAsnt esne se 4 ° 
MODULE PASSGET ( %TITLE ‘GET peeeeere’ ‘ 
D = '1-002' ! File: PASGET.B32 Edit: $BL1002 
BEGIN 


Lee R RARER AERA RARER AAA RARER ERE REET EEE 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!# ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'e roe IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


!® TRANSFERRED. 


HOUT NOTICE 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WIT 
ND SH NOT IGITAL EQUIPMENT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1!* A OULD BE CONSTRUED AS A COMMITMENT BY DIG 
: * CORPORATION. 

® 
’ !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


* 
® 
> 
® 
® 
*® 
® 
* 
* 

; 0 B * 

!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 
® 
® 
® 
® 
® 
* 

!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 

® 
*® 


Lee AERA ARREARS 
' 


+ 
FACILITY: Pascal Language Support 
ABSTRACT: 


MIEWN OO ODNAUSWN —OODNAUES WN —OOODNOUS Wh 
So 
Ww 


This module contains PASSGET, which implements the 
VAX-11 Pascal GET procedure. 


i] 
; 
; 
; 
ENVIRONMENT: User mode - AST reentrant 
: AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
! MODIFIED BY: 
i 1-001 - Original. SBL 1-April-1981 

1-002 - Turn off NLK bit after SGET. SPR 11-55690 SBL 8-Apr-1983 
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GET procedure 
Declarations 


MSBTTL ‘Declarations’ 
! PROLOGUE DEFINITIONS: 


oO 
Sa 


NRO ODONAOUES WN "OO OONOAUES WN OOO O00 


REQUIRE ‘RTLIN:PASPROLOG'; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
PAS$GET: NOVALUE, 
PAS$GET_UNLOCK: NOVALUE, 
PASSSGET: JSB_GET NOVALUE; 
7 
MACROS: 
! NONE 
EQUATED SYMBOLS: 
; NONE 
FIELDS: 
; NONE 
OWN STORAGE: 
i NONE 


po lelelelelelelelelelelelelelelelelelelelelelelelelololelolololo) 
Ok kk kk kh th td 
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) 


1984 01:37:43  VAX-11 Bliss-32 v4.0-742 
1986 93:84:40 "SRC IPAS 


C 


GET .B32;1 


Externals, linkages, PSECTs, structures 


Do a GET 
Do a GET and UNLOCK 
Internally callable 


' File control block 
' Enable argument 
' Enable argument 
! Enable argument 


L 

FCB: REF SPAS$FCB_CONTROL_BLOCK, 
PFV_ADDR: VOLATILE, 

UNWIND ACT: VOLATILE, 
ERROR_ADDR: VOLATILE; 


12 
PASSGET GET procedure 18-Se 1984 01:37:4 AX-11 Bliss-32 V4.0-74 Page 3 
1-008 PASSES - GET procedure 12-08-1382 04:37:48 PASRTL.SRCIPASGET_B32: . (3). 
$ ¢ 143 1 SSBTTL ‘PASSGET - ger procedure’ 
; 144 1 GLOBAL ROUTINE PASSGET ( ' Do a GET 
3 4 145 1 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 
3 5 138 1 ERROR ' Unwind address if error 
; © 147 1 ): NOVALUE = 
; 89 9130 FUNCTIONAL DESCRIPTION: 
; (91 O13¢ 7 PASSGET implements the VAX-11 Pascal GET procedure. It 
; F 01 1! reads a record from the file and places its contents in 
: + bie ! the file buffer. 
95 O196 1 | CALLING SEQUENCE: | 
; 44 o138 1 | CALL PASSGET (PFV.mr.r C, ERROR.j.rJ) | 
: 133 0160 ; FORMAL PARAMETERS: | 
: 101 0162 1 i PFV - The Pascal File Variable (PFV) passed by reference. | 
: 105 oie? : } The structure of the PFV is defined in PASPFV.REQ. 
: 104 0165 1 ERROR - Optional. If specified, the address to unwind to 
: 132 the) ; if an error occurs. 
: 107 0168 1 | IMPLICIT INPUTS: 
3: 108 0169 1! 
2 Be BE line, | 
; 11 oi7e | { IMPLICIT OUTPUTS: | 
He BR) 
: 115 0176 1 |! ROUTINE VALUE: 
; 116 0177 1! 
ie 88 oo | 
: 119 0180 i SIDE EFFECTS: | 
: 121 44 1: Opens standard files INPUT or OUTPUT if not already open. 
; i¢¢ Big ' Turns off RABSV_NLK which might have been set by PASS$GET_UNLOCK 
3 134 0185 | i SIGNALLED ERRORS: | 
: 158 $189 1/ FILNOTOPE - file not open 
» Sar 0188 1! FILNOTINS - file not in Inspection mode 
: 128 0189 1! 
| gig yin | 
; ot BEGIN 
eB t LOCA 
3 ¥ 1 
3 ' 3 
: 1 $i 
3 3 01 
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PASSGeT =1386 4:37:43 AX=1 Oh fegete V4.0-74 


dure 0 : 
- GET procedure p-1984 12: PASRTL.SRCJPASGET.B32; 


BIND 
RAB = FCB: REF BLOCK C, BYTE); ! RAB is FCB 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 


cS ACTUALCOUNT () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind address 


4 
Set PFV address enable argument. 


PFV_ADDR = PFV CPFVS$R_PFVI; 
' 


‘+ 
Validate and lock PFV 


© ok al al? ak val val alvaleal alealeal al al ae oP ae a oP a er oP oP aie 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVIJ; FCB); 


UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 
+ 
Resolve lazy lookahead, if any. Also may open INPUT or OUTPUT. 
IF NOT .PFV CPFVS$V_VALIDJ 
PASS$SLOOK_AHEAD (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBJ; FCB); 


+ 
Verify that the file is open. 


C0909 NIN NNN NNN NSO OO 


IF NOT -PFV CPF V$V_OPEN 
SPASSIO_ERROR (PAS$_FILNOTOPE,0); 
'¢ 
Verify that we are in Inspection mode 
IF NOT .FCB CFCBSV_INSPECTION) 
SPASSIO_ERROR (PAS$_FILNOTINS,O); 


em a ec ce ee em ce ee ee me me ee ee ee ee ee ed ed ed ed ed wd ed wd od 


2 
+ 
Set unwind action to unlock file. 
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cedur 
- GET procedure 


12 
e 18-Sep-19 4 0}: 37: 3 AXx-1 
14-Sep-1984 12:51:30 PASR 


_—— 


Turn off RABSV_NLK. 


RAB CRABSV_NLK] = 0; 

14 

Do the GET 

PASSSGET (PFV CPFVSR_PFV], FCB CFCBSR_FCB)); 
Ve 


i Indicate successful completion 
; Unlock the file 


FCB FCBSL_STATUSJ 0; 


PFV CPFVS$V_LOCK) 
RETURN; 
END; ! End of routine PAS$GET 


0: 


.EXTRN PASSS$VALIDATE 
-EXTRN PAS$$LOOK_AHEAD 


Liss-32 HE oe 
L.SRCJPASGET.B32; 


E PASS$GET GET procedure 
T \1-002\ 


-EXTRN PASSGET, PASS$GET_UNLOCK 
-EXTRN PASS$SGET, PASSS 10 HANDLER 


A 
-EXTRN PASSSSIGNAL, PASS$K_FILNOTOPE 


“EXTRN PASSK_FILNOTINS 


-PSECT _PASSCODE,NOWRT, 
-ENTRY paseet. Save R2,R3,R6,R7 


04 
0056 
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2 
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000000006 


P), #2 


1$: MOVL 
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08 
04 #1, UNW 
6(R 


PAS$$LOOK_AHE AD 


06 
000000006 
2$: BBS #5, 7(R6), 3$ 


07 A6 

7E 006 
FD A? 

7E 006 


#3, -3(FCB), 5$ 
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MOVL pry ERROR_ADDR 


R6, PFV_ADDR 
PASSSVALIDATE_PFV 
NWIND_ACT 


RL » 
o_o #PASSK_FILNOTOPE, 


LRL 
MOVZBL #PASSK_FILNOTINS, 


SHR, PIC.2 
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71986 9233 
ALLS 
ET 
1¢B 
SBW 
LRL 
1¢B 
RET 
- WORD 
MOVL 
MOVL 
PUSHL 
PUSHL 
MOVQ 
CALLS 
RET 
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N 12 
T procedure ; 1o~300°138% 9}: 37:4 
SSGET_UNLOCK = GET procedure with UNLOCK 14-Sep-1984 12: 


ZSBITL ‘PASSGET_UNLOCK = GET procedure with UNLOCK’ 
GLOBAL ROUTINE PASSGET_UNLOCK ( 
PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable — 
! Unwind address if error 
): NOVALUE = 


3 AX-11 Bliss-32 V4.0=-742 
1:30 PASRTL.SRC JPASGET.B32; 1 


++ 
FUNCTIONAL DESCRIPTION: 
PASSGET_UNLOCK is called by the compiled code when a READ is 
done for a non-textfile. It does the equivalent of a GET followed 
by an UNLOCK. What it actually does is set RABSV_NLK which will 
cause Na next $GET to not lock the record. This bit is reset by 
PASSFIND2, PASSFINDK, PASSGET, PASSRESET and PASSRESETK and 
PASSREWRITE2, which are the only procedures 
which do $GEfs on non-textfiles. It doesn't matter for textfiles 
since they may only be sequential organization. 
CALLING SEQUENCE: 
CALL PASSGET_UNLOCK (PFV.mr.r C, ERROR.j.rJ) 
FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. 


ERROR - Optional. If specified, the address to unwind to 
if an error occurs. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
Opens standard files INPUT or OUTPUT if not already open. 
SIGNALLED ERRORS: 


FILNOTOPE - file not open : 
FILNOTINS - file not in Inspection mode 


BEGIN 


LOCAL 
FCB: REF SPAS$FCB_CONTROL_BLOCK, 


PRO PRIRDING ae ke te a tt ts 9 9 ss ts 5 ss 9 ss as ss ss 9 2 > 4 9 2 5 ss 


NOUS WN $0 OD NO UE WN 9 ODNOA UE WN ($ O ODNAUS WN "0 OONOUS Wh —O0@W 
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' File control block 


Page 


13 
PASSGET GET procedure 1-s2 $1984 01:37:43 AX-11 Bliss-32 V4.0-742 
1-008 PASSGET UNLOCK - GET procedure with UNLOCK 12-808-1 3b 93337543 PASRTL.SRCJPASGET.B32;1 
; 278 PFV_ADDR: VOLATILE, ' Enable argument 
; e279 8 3§ UNWIND_ACT: VOLATILE, ' Enable argument 
$ 44 8 rt ERROR_ADDR: VOLATILE; ! Enable argument 
3 o¢ 0 rk: BIND 
3 $e; 8 $7 RAB = FCB: REF BLOCK C, BYTE]; ! RAB is FCB address 
; 285 0345 BUILTIN 
; 286 0346 ACTUALCOUNT, 
, eer 0347 TESTBITSS; 
; 288 0348 
; 289 bee? ENABLE 
; By tie $ PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 
; a 0326 § IF ACTUALCOUNT () GEQU 2 
; 29 035 THEN 
; 294 0354 2 ERROR_ADDR = .ERROR; ! Set unwind address 
; 295 0355 § 
; 296 0356 ‘+ 
: evr 0357 2 ' Set PFV address enable argument. 
; 298 0358 2 te 
; 299 0359 2 
; 300 0360 2 PFV_ADDR = PFV CPFVSR_PFVI; 
; 301 0361 2 
; 2» B06 2 7 ae 
a... 0363 2 ! Validate and lock PFV 
: 304 0364 2 = 
; 305 0365 2 
; 306 0366 2 PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
s Sor 0367 2 
; 308 0368 2 1+ ‘ : ‘ 
: 349 0369 2 ! Set unwind action to unlock file. 
> 310 0370 2 le 
; 5 0371 2 
; 312 0372 2 UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
g BIS 0373 2 
3 «3146 0374 2 '+ 
s 345 0375 2 ! Resolve lazy lookahead, if any. Also may open INPUT or OUTPUT. 
3 3M 0376 2 !- 
; 317 0377 $ 
: 318 0378 IF NOT .PFV CPFV$V_VALIDJ 
3 4 tha 2 HEN 
: $9 Oey 2 PASSSLOOK_AHEAD (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBJ; FCB); 
3 $e 036° * 
; 323 038 ! Verify that the file is open. 
: 324 0384 !- 
s. Seo 0385 
: $8 Oeo IF NOT .PFV CPFV$V_OPEN) 
; 328 0388 SPASSIO_ERROR (PAS$_FILNOTOPE ,0); 
3 $ 389 
; 0 0390 '¢ : 
s 33) 0391 ! Verify that we are in Inspection mode 
; 3 B338 = 
; 35 $44 
; 34 0394 IF NOT .FCB CFCBSV_INSPECTION] 


| PASSGET GET proce 
1-002 PASSGET. 
3 3 , 0 nt 
; 7 6 35 
3 ; 8 0398 
3 9 0399 
; 340 0400 
3 56) 0401 
: 4g Bets 
; * 040 
; 344 0404 
; 345 0405 
; re 0406 
> 34 0407 
; 348 0408 
; 349 0409 2 
; 390 0410 $ 
: 383 0442 
3 32 be18 $ 
; 354 0414 2 
3 6USDS 0415 2 
s 356 0416 2 
g SS 0417 2 
3 398 0418 2 
3; 359 0419 2 
: 360 0420 2 
s 361 0421 2 
E 362 0422 1 
08 
OE 


dure 
UNLOCK = GET procedure with UNLOCK 


14-Sep-1984 12:51 


HEN 
SPASSIO_ERROR (PAS$_FILNOTINS,O); 


14 
If this is not a textfile, set RABSV_NLK. 


IF NOT .FCB CFCBSV_TEXTI 
RAB CRABSV_NLK]) = 1; 


1+ 
Do the GET 


PASSSGET (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBI); 


+ 
' Indicate successful completion 
Unlock the file 


FCB CFCBSL_STATUS) = 0; 
PFV CPFVS$V_LOCK] = 0; 
RETURN; 
END; : 
00ccC 00000 ENTRY 
5E 08 C2 00002 SUBL2 
7E 04 00005 CLRL 
04 AE 7C 00007 CLRQ 
6D OOSA CF ODE QOO0A MOVAL 
02 6C 91 OOO0F CMPB 
04 1F 00012 BLSSU 
6E 08 AC DO 00014 MOVL 
56 04 AC DO 00018 1$: MOVL 
08 AE 56 DO OO0IC MOVL 
000000006 89 16 C44 JSB 
04 AE 1 DO 00026 MOVL 
06 06 A6 €E8 OO002A BLBS 
00000000G 00 16 O002E JSB 
07 Ab 05 €0 44 4 2% BBS 
7E D4 00039 CLRL 
7E 00G 8F 9A 4 B MOVZBL 
oe 11 O3F BRB 
FD OA? 03 €0 00041 3$ BBS 
7E 04 rt CLRL 
7E 006 or 9A 0004 MOVZBL 
00000000G 00 2 FB Ones 4% CALLS 
04 0005 RET 
04 F8 A? €E8 00054 5$ BLBS 


1-d2p-19 4 01:37:43 
9 3 :30 PASRTL.SRC 


AX=11 ag PS 


End of routine PAS$GET_UNLOCK 


PASSGET UNLOCK, Save R2,R3,R6,R7 
ERROR_ADDR 

UNWINB_ACT 

7$, (FP) 

(AP), #2 

ERROR, ERROR_ADDR 

R6, PFV_ADDR 

PASSSVACIDATE_PFV 

a UNWIND_ACT 


R6), 
PAS$$LOOK_AHEAD 
#5 7(R6), 3$ 


WPASSK_FILNOTOPE, -(SP) 
#3, -3(FCB), 5$ 
~(§P) 


#PASSK_FILNOTINS, (SP) 
#2, PASSSSIGNAL 


-B(FCB), 6$ 


Page 


D 13 
PAS$GET GET procedure 16-Sep-1984 01:37:43 AX-11 Bliss-32 V4.0-742 
1-002 PASSGET. UNLOCK - GET procedure with UNLOCK 13-808 - 1382 ee, YPASRTL SRe PASGET.B32;1 
06 A7 1¢ 0058 BISB2 #16, 6(FCB) 
0000v i a3¢ 6$ BSBW PAS$S$GET 
A F CLRL 44 (FCB) 
07 3 A6 80 =s BF oe b066 cites #128, 7(R6) 
00 B08 7$: . WORD boys nothing 
0 08 aC OD 6A MOVL (AP), RO 
5 046 «OA p 06 MOVL 4(RO), R 
FL OA F 00 PUSHAB ERROR_ADDR 
F8 AQ 9F 0007 PUSHAB UNWIND ACT 
FC AO 9F 00078 PUSHAB PFV_ADBR 
Q DD 9078 PUSHL #3 
F bb 7D PUSHL SP 
7E 04 AC D 0007F ova 4(AP), -(SP) 
000000006 00 3 FB 00083 CALLS #3, PASS$$IO_HANDLER 
04 O008A ET 


; Routine Size: 139 bytes, Routine Base: _PASS$CODE + 0087 


: 363 0423 


1 
0424 1 !<BLF/PAGE> 


Sroonof ~O 


PASSGET GET 
1-002 PAS$ 


; 0425 
3 30 4 § 
; 368 4 

; I 0428 
s 570 0429 
3 71 0430 
; Lf: 0431 
; 3 04 ¢ 
: 374 043 
s S73 0434 
s 376 0435 
; S77 0436 
; 378 0437 
; 379 0438 
: 380 0439 
ae} 0440 
: ze¢ 0441 
; 3s 044 
: 384 044 
: 385 0444 
; 386 0445 
; 387 0446 
; 388 0447 
; 389 0448 
; 390 0449 
; 391 0450 
; 392 0451 
3 395 045 
: 394 045 
; 395 0454 
: 3 0455 
3; 397 0456 
; 398 0457 
3; 3 0458 
5 0459 
: 401 0460 
: 402 0461 
; 403 046 
; 404 046 
; 405 0464 
; 406 0465 
3; 407 0466 
: 408 0467 
; 409 0468 
; 410 0469 
3; «411 0470 
: ai¢ 0471 
3; (41 047 
> 414 047 
: 615 0474 
: 416 047 
: 4617 0476 
; 418 047 
> 419 047 
; 420 0479 
P} ty 0480 
; 422 0481 


5 
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1:37:43 AX-11 Bliss-32 V4.0-742 
GET = Internally callable GET 14-Sep-1984 ° 3143 PASRTL.SRCJPASGET.832;1 
1 ZSBTTL ‘PASSS$GET - jaternatly callable GET’ 
GLOBAL ROUTINE PASSS$GET ( ! Do a GET 
PFV: REF SPASSPFV_FILE_ VARIABLE, ' File variable 
CB: REF SPASS$F CB_CONTROL_BLOCK ' Control Block 


F 
): JSB_GET NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


PASSSGET implements the VAX-11 Pascal GET procedure. It 
reads a record from the file and places its contents in 
the file buffer. 

CALLING SEQUENCE: 


JSB PASSSGET (PFV.mr.r, FCB.mr.r) 


: FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. 
FCB - The File Control Block for the file. 


IMPLICIT INPUTS: 


It is assumed that the file is open, is in inspection mode and is locked. 
It is assumed that lazy lookahead is not in progress. 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
SIGNALLED ERRORS: 
FAIGETLOC - failed to GET locked component 


GETAFTEOF - GET attempted after end-of-file 
ERRDURGET - error during GET 


BEGIN 


LOCAL 
STATUS; 


BIND 
RAB = FCB: REF BLOCK C, BYTE); 


F 13 
rocedure 16-Se 
PASSSGET = Internally callable GET 14-Se 
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CONOUE WOO 


1+ 
Set initial conditions of PFV flags 


PFV CPFVSV_DFB 8) 


= : Buffe 
PFV CPF VSV_EOF _DEF OF 


H undefined 
NED] = 1;! EO i 


, 
defined after GET 


1+ 
If EOF is true, then signal an error. 


IF .FCB CFCBSV_EOF] 
SPASSIO_ERROR (PAS$_GETAFTEOF ,0); 
'+ 
x GET from a textfile is different... 
IF .FCB CFCBSV_TEXTJ 
THEN 
BEGIN 
i ie we already at end-of-line? If so, set lazy-lookahead 
if .PFV CPFVSV_EOLN] 
THEN 
BEGIN 
FCB CFCB$V_LAZY) = 1; 
PFV CPFVSVVALID] = 6; 
RETURN; 
END; 
14 
¥ Advance current record pointer 
FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + 1; 
+ 
Are we now at end-of-Line? 
ot -FCB CFCBSA_RECORD_CUR] GEQA .FCB CFCBSA_RECORD_ENDJ 
BEGIN 
7 at end-of-line. Set EOL, move a blank to user buffer. 


PFV CPFV$V_EOLN) = 

+ eee i *, “ery CPFVSA_BUFFER]); 
ELSE 

'¢ 


. Otherwise move new character to user buffer 


13 
PASSGET ET procedure 1gese -1984 01:37:4 AX-11 Bliss-32 V4.0-742 Page 
1-008 ASSeGET - Internally callable GET 12-808 - 1383 9): 1:3 PASRTL. SRC IPASGET.B32:1 . 
; 480 84 
3 tt 279 CHSWCHAR (..FCB CFCBSA_RECORD_CUR], .PFV CPFVSA_BUFFER]); 
: 48 54 ‘+ 
> 484 278 ! Mark buffer and PFV as valid and return immediately. 
; 485 544 l= 
: 486 545 
: 487 546 PFV CPFVS$V_VALID) = 1; 
; 488 547 PFV CPFV$V_DFB) = 1; 
; 489 548 RETURN; 
: 490 49 3 
; 491 29 
; 49 1 14 
; 49 26 ' Not textfile, call RMS to get a record. 
: O38 37 a 
; 496 55 RAB CRAB$B_RAC] = RABSC_SEQ; ' Set sequential access mode 
; 497 56 STATUS = SPASSRMS_OP (SGET (RAB=.RAB)); 
; 498 57 
; 499 58 1+ 
; 500 59 ! If varying, put Senpenens Length in first word of user buffer. 
3 5 2 Do this before we check for errors! 
: 3 o¢ 
; 504 6 IF .FCB CFCBSV_VARYING) 
: 5 64 THEN 
; 65 (.PFV CPFVSA_BUFFERJ)<0,16,0> = .RAB CRAB$W_RSZJ; 
: 67 


; 
; 
s 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 ‘+ 
2 
2 
2 
2 
2 
2 
2 
§ 
3 
3 
3 
3 
| 
2 


50 
50 
50 
50 
50 
506 
308 
509 68 ! Turn off RABSV_NLK now just to make sure we don't have problems 
510 69 ! later on. 
511 70 te 
512 71 
513 i RAB CRARSV_NLK]) = 0; 
514 7 
515 74 IF NOT .STATUS 
516 75 THEN 
517 76 BEGIN 
518 77 '¢ ‘ = ; 
519 78 ! $GET failed. If RMS$_EOF, simply set EOF condition. Otherwise, 
239 6 signal an error. 
522 81 IF .RAB CRABSL_STS] EQLU RMS$_EOF 
27 a6 THEN 
4 8 FCB CFCBSV_EOF) = 1 
352 He FUSE IF .RAB CRABSL_STS] EQLU RMS$_RLK 
5 250 Hy , SPASSIO_ERROR (PAS$_FAIGETLOC) ! Failed te GET Locked component 
3 44 88 SPAS$IO_ERROR (PAS$_ERRDURGET); 
; 530 89 PFV CPFVSV_BFB] = 0; 
2 3s 90 END 
; 236 91 ELSE 
3 33 35 EGIN 
; 534 9 FCB reey cor} = 0; 
s 335 94 PFV CPFV$V_DFB) = 1; 
; 536 95 D 
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13 
PASS$GET GET procedure 14-5 1984 01:37: AX-11 Bliss-32 V4.0-74 
A808 PASSBGET = Internally callable GET 12286871382 93:37:49 PASRTL SRE SPASGET 03224 
02. A2 02 8A OOar 12$: BICB2 #2, 2(R2) 
5 AF RSB 
8} a3 39 A 00080 13$ Bites #32, 1(R3) 
:- & 8 00084 14$ BISB #2, 2(R2) 
05 00088 RSB 
; Routine Size: 185 bytes, Routine Base: _PASSCODE + 0112 


1 0600 1 
2 0601 1 !<bLF/PAGE> 


Bete Be Sete 


13 
PASSGET GET procedure 18-Sep-1 1386 Oo}: AX-11 Bliss-32 V4.0-742 
1- PASSSGET = Internally callable GET 14- when 2: PASRTL.SRCJPASGE “Bae. 1 
; ete 060 } END ! End of module PAS$GET 
: $46 0604 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: PASSCODE 459 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
SR Wee, One Symbols -oo----- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 12 0 581 00:01.0 
3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 98 22 33 00:00.4 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:PASGET/OBJ=OBJ$:PASGET MSRC$:PASGET/UPDATE=(ENH$:PASGET) 


Run Time: 00: 
Elapsed Time: 00: $974 
Lines/CPU Min: 3181 
Sey tee ae 19359 
poe | Used: 109 pages 
Compilation Complete 


459 code ¢ + 0 data bytes 


AH-BT13A-SE | DIG NT CORPORATION 
VAX/VMS V4.0 CON . D PROPRIETARY 


